The Net Power 1996 March/Net Power 03 (March 1996).iso/prodigy/demo/veronica.dxr/00001.ls

Text File | 1995-10-25 | 1.5 KB | 34 lines

on startMovie
  global gNameOfSoundFile, gChannelForHighButtons, gChannelForSound, gCuesForVoice, gLabelsForVoiceCues, gCountOfCues, gPreTicksForCue, gNextCueIndex, gRadiusOfExitButton, gCenterOfMenuH, gCenterOfMenuV, gLabelForEndScreen, gMouseDownInButton, gUseMenuButton
  set gNameOfSoundFile to "Veronica.AIF"
  set gChannelForHighButtons to 5
  set gChannelForSound to 1
  set the puppet of sprite gChannelForHighButtons to 1
  set the visible of sprite gChannelForHighButtons to 0
  set the ink of sprite gChannelForHighButtons to 0
  set gCuesForVoice to [50, 75, 179, 388, 530, 690, 760, 1050, 1170, 1270, 1400, 1665, 1790, 1950, 2200, 2360, 2600, 2680, 2820, 2980, 3280, 3320, 3440, 3800]
  set gLabelsForVoiceCues to ["Im", "SoLast", "Talk", "Itall", "NextThing", "Imin", "What", "Anyway", "hyphen", "HeandI", "Icouldnt", "Thats", "Nobody", "Hey", "ItGives", "InFact", "Eyesand", "Kinda", "Let", "You", "Imay", "ButI", "End"]
  set gCountOfCues to 24
  set gPreTicksForCue to 40
  set gRadiusOfExitButton to 32
  set gCenterOfMenuH to 141
  set gCenterOfMenuV to 443
  set gUseMenuButton to 0
  set gLabelForEndScreen to "endinfo"
end

on isWithinExitButton h, v
  global gRadiusOfExitButton, gCenterOfMenuH, gCenterOfMenuV
  set hComp to gCenterOfMenuH - h
  set vComp to gCenterOfMenuV - v
  set r to sqrt((hComp * hComp) + (vComp * vComp)) < gRadiusOfExitButton
  return r
end

on stopSound
  global gChannelForSound
  if soundBusy(gChannelForSound) then
    sound stop gChannelForSound
  end if
end